home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / CDROM / SCDPlayer / Install < prev    next >
Text File  |  1996-12-24  |  29KB  |  664 lines
  1. ;Install script for SCDPlayer 1.5.1
  2. ;©1996 Juan Jesús García de Soria Lucena
  3. ;
  4. ;ENGLISH
  5. (
  6.     (set #making_drawer "Making SCDPlayer's drawer...")
  7.     (set #copying_icons "Copying icons...")
  8.     (set #copying_program "Copying SCDPlayer's binary...")
  9.     (set #copying_lyrics "Copying SCDPLyrics ARexx module...")
  10.     (set #copying_support "Copying support executable...")
  11.     (set #making_arexx "Making drawer for ARexx scripts...")
  12.     (set #copying_arexx "Copying ARexx scripts...")
  13.     (set #copying_docs "Copying AmigaGuide® docs...")
  14.     (set #making_disks "Making Disks drawer...")
  15.     (set #making_images "Making Images drawer...")
  16.     (set #catalogs "Installing catalog files...")
  17.     (set #enter_device "Enter the device driver name for your CD-Rom drive (for example 'scsi.device').")
  18.     (set #dev_help (cat
  19.         "Enter the device driver name for your CD-Rom drive here. This should be the same as found in"
  20.         " 'DEVICE=' line in the mountlist for your CD-Rom.\nIf you are not sure, check"
  21.         " 'devs:dosdrivers/CD0' if you are running Workbench 2.1 or up, or 'devs:mountlist' otherwise."
  22.     ))
  23.     (set #ask_dir "Select in which directory the drawer 'SCDPlayer' will be created.")
  24.     (set #dir_help (cat
  25.         "You must select now in which directory install SCDPlayer. A new drawer named 'SCDPlayer'"
  26.         " will be created there.\n"
  27.         @askdir-help
  28.     ))
  29.     (set #enter_unit "Enter the device driver unit number for your CD-Rom drive.")
  30.     (set #unit_help (cat
  31.         "Enter the device driver unit number for your CD-Rom drive here. This should be the same as found in"
  32.         " 'UNIT=' line in the mountlist for your CD-Rom.\nIf you are not sure, check"
  33.         " 'devs:dosdrivers/CD0' if you are running Workbench 2.1 or up, or 'devs:mountlist' otherwise."
  34.     ))
  35.     (set #ok_vals "The following values for your CD-Rom drive have been obtained from a previous installation:\n")
  36.     (set #ok_vals2 "Are they ok?")
  37.     (set #ask_choices "Which elements do you wish to install?")
  38.     (set #choice1 "SCDPlayer")
  39.     (set #choice2 "SCDPlayer docs")
  40.     (set #choice3 "SCDPlayer catalogs")
  41.     (set #choice4 "Example ARexx scripts")
  42.     (set #choice5 "SCDPlayer sources")
  43.     (set #choice6 "SCDPlayer button images")
  44.     (set #choice7 "SCDPLyrics ARexx module")
  45.     (set #choice8 "'Delay' support executable")
  46.     (set #parts_help (cat "Select which parts do you want to install." @askoptions-help))
  47.     (set #msg_scdpdir "About to make 'SCDPlayer' drawer.")
  48.     (set #msg_scdpprogram "SCDPlayer program will get copied now.")
  49.     (set #msg_scdpdocs "Proceeding to copy documentation.")
  50.     (set #diskdrwhelp "If you will use ID-files in another directory, skip this.")
  51.     (set #copying_images "Copying images for buttons.")
  52.     (set #imagesnormal "Standard SCDPlayer images")
  53.     (set #images3d "3D images")
  54.     (set #selectimages "Select which style of images for the buttons do you wish to install:")
  55.     (set #imageshelp (cat
  56.         "Standard images are solid black symbols on default background colour,"
  57.         "3D ones are embossed, but a little less readable.\n"
  58.         @askchoice-help
  59.     ))
  60.     (set #selecticons "Select which style of icons to install:")
  61.     (set #newicons "NewIcons style")
  62.     (set #magicwb1 "MagicWB style 1")
  63.     (set #magicwb2 "MagicWB style 2")
  64.     (set #iconshelp (cat
  65.         "MagicWB 1 & 2 styles differ in SCDPlayer's executable icon."
  66.         " Type 1 has a CD and a musical score, while type 2"
  67.         " has a CD and MUI symbol.\n"
  68.         @askchoice-help
  69.     ))
  70.     (set #catselect "Select which catalogs to install:")
  71.     (set #catdeutsch "Deutsch")
  72.     (set #catespañol "Español")
  73.     (set #catnorsk "Norsk")
  74.     (set #catsvenska "Svenska")
  75.     (set #catfrançais "Français")
  76.     (set #catsuomi "Suomi")
  77.     (set #catdansk "Dansk")
  78.     (set #catpolski "Polski")
  79.     (set #cathelp (cat
  80.         "Select which catalog files you wish to install. SCDPlayer will be automatically"
  81.         " translated to your preferred language if it's selected in your Locale Preferences.\n"
  82.         @askoptions-help
  83.     ))
  84.     (set #copying_sources "Copying SCDPlayer's sources...")
  85.     
  86.     (set #catbits 0)
  87.  
  88.     (set #docselect "Select which AmigaGuide® docs to install:")
  89.     (set #docdeutsch "Deutsch (not fully updated)")
  90.     (set #docenglish "English")
  91.     (set #dochelp (cat
  92.         "Select which documentation files you wish to install. Select your preferred language(s).\n"
  93.         @askoptions-help
  94.     ))
  95.     (set #supporthelp (cat
  96.         "The Delay executable is needed by the ARexx scripts and SCDPLyrics. It should be installed somewhere in your default path.\n"
  97.         @copyfiles-help
  98.     ))
  99.     (set #askautolyrics "Do you want SCDPLyrics to be started whenever SCDPlayer is run?")
  100.     (set #helpautolyrics "Select 'yes' if you want SCDPLyrics window to open automatically when you start SCDPlayer. Select 'no' otherwise.")
  101.  
  102.     (set #askres "Do you want Delay to be made resident?")
  103.     (set #promptres "Adding a line to your User-Startup...")
  104.     (set #helpres "This will add a line to your User-Startup for making Delay resident. This will take 2kB of memory at startup, but ARexx functions and SCDPLyrics won't access disk for waiting.")
  105.     
  106.     (set #docbits 2)
  107. )
  108. ;DEUTSCH
  109. (if (= @language "deutsch")
  110.     (
  111.         (set #catbits 1)
  112.         (set #docbits 1)
  113.     )
  114. )
  115. ;NORSK
  116. (if (= @language "norsk")
  117.     (set #catbits 4)
  118. )
  119. ;SVENSKA
  120. (if (= @language "svenska")
  121.     (set #catbits 8)
  122. )
  123. ;FRANÇAIS
  124. (if (= @language "français")
  125.     (set #catbits 16)
  126. )
  127. ;ESPAÑOL
  128. (if (= @language "español")
  129.     (
  130.         (set #catbits 2)
  131.     
  132.         (set #making_drawer "Haciendo el cajón de SCDPlayer...")
  133.         (set #copying_icons "Copiando iconos...")
  134.         (set #copying_program "Copiando el ejecutable de SCDPlayer...")
  135.         (set #copying_lyrics "Copiando el módulo ARexx SCDPLyrics...")
  136.         (set #copying_support "Copiando el executable de soporte...")
  137.         (set #making_arexx "Haciendo el cajón para los programas ARexx...")
  138.         (set #copying_arexx "Copiando programas ARexx...")
  139.         (set #copying_docs "Copiando documentación AmigaGuide®...")
  140.         (set #making_images "Haciendo el cajón para las imágenes...")
  141.         (set #making_disks "Haciendo el cajón 'Disks'...")
  142.         (set #catalogs "Instalando los ficheros de traducción...")
  143.         (set #enter_device "Teclee el nombre del controlador de dispositivo para su unidad CD-Rom (por ejemplo 'scsi.device').")
  144.         (set #dev_help (cat
  145.             "Teclee aquí el nombre del controlador de dispositivo de su unidad CD-Rom. Éste debería ser"
  146.             " el mismo que haya en la línea 'DEVICE=' del mountlist de su CD-Rom.\nSi no está seguro,"
  147.             " compruebe 'devs:dosdrivers/CD0' si está corriendo el Workbench 2.1 o superior, o"
  148.             " 'devs:mountlist' en otro caso."
  149.         ))
  150.         (set #ask_dir "Elija en qué directorio se creará el cajón 'SCDPlayer'.")
  151.         (set #dir_help (cat
  152.             "Debe usted seleccionar ahora un directorio en qué instalar SCDPlayer."
  153.             " Un nuevo cajón llamado 'SCDPlayer' será creado allí.\n"
  154.             @askdir-help
  155.         ))
  156.         (set #enter_unit "Teclee el número de unidad del controlador de dispositivo para su unidad CD-Rom (por ejemplo 'scsi.device').")
  157.         (set #unit_help (cat
  158.             "Teclee aquí el número de unidad del controlador de dispositivo de su unidad CD-Rom. Éste debería ser"
  159.             " el mismo que haya en la línea 'UNIT=' del mountlist de su CD-Rom.\nSi no está seguro,"
  160.             " compruebe 'devs:dosdrivers/CD0' si está corriendo el Workbench 2.1 o superior, o"
  161.             " 'devs:mountlist' en otro caso."
  162.         ))
  163.         (set #ok_vals "Los siguientes valores de su unidad de CD-Rom han sido obtenidos de una instalación previa:\n")
  164.         (set #ok_vals2 "¿Son correctos?")
  165.         (set #ask_choices "¿Qué elementos desea instalar?")
  166.         (set #choice1 "SCDPlayer")
  167.         (set #choice2 "Documentación de SCDPlayer")
  168.         (set #choice3 "Ficheros de traducción de SCDPlayer")
  169.         (set #choice4 "Programas ARexx de ejemplo")
  170.         (set #choice5 "Ficheros fuente de SCDPlayer")
  171.         (set #choice6 "Imágenes para los botones de SCDPlayer")
  172.         (set #choice7 "Módulo ARexx SCDPLyrics")
  173.         (set #choice8 "Ejecutable de soporte 'Delay'")
  174.         (set #parts_help (cat "Elija qué partes de SCDPlayer desea instalar." @askoptions-help))
  175.         (set #msg_scdpdir "Se creará el cajón 'SCDPlayer'.")
  176.         (set #msg_scdpprogram "Ahora se copiará el programa SCDPlayer.")
  177.         (set #msg_scdpdocs "Procediendo a la copia de la documentación.")
  178.         (set #diskdrwhelp "Si va usted a usar los ficheros ID en otro directorio, salte esta parte.")
  179.         (set #copying_images "Copiando las imágenes de los botones.")
  180.         (set #imagesnormal "Imágenes estándar de SCDPlayer")
  181.         (set #images3d "Imágenes 3D")
  182.         (set #selectimages "Elija qué tipo de imágenes para los botones desea instalar:")
  183.         (set #imageshelp (cat
  184.             "Las imágenes estándar son símbolos sólidos negros sobre el color de fondo por defecto,"
  185.             "Las 3D tienen efecto de bajorrelieve, pero son algo menos legibles.\n"
  186.             @askchoice-help
  187.         ))
  188.         (set #selecticons "Elija qué estilo de iconos instalar:")
  189.         (set #newicons "Estilo NewIcons")
  190.         (set #magicwb1 "Estilo MagicWB 1")
  191.         (set #magicwb2 "Estilo MagicWB 2")
  192.         (set #iconshelp (cat
  193.             "Los estilos MagicWB 1 y 2 se diferencian en el icono del ejecutable de"
  194.             " SCDPlayer. El de tipo 1 tiene un CD y una partitura musical, mientras el"
  195.             " tipo 2 tiene un CD y el símbolo de MUI.\n"
  196.             @askchoice-help
  197.         ))
  198.         (set #catselect "Elija qué ficheros de traducción instalar:")
  199.         (set #catdeutsch "Deutsch")
  200.         (set #catespañol "Español")
  201.         (set #catnorsk "Norsk")
  202.         (set #catsvenska "Svenska")
  203.         (set #catfrançais "Français")
  204.         (set #catsuomi "Suomi")
  205.         (set #catdansk "Dansk")
  206.         (set #catpolski "Polski")
  207.  
  208.         (set #cathelp (cat
  209.             "Elija qué ficheros de traducción instalar. SCDPlayer será traducido de forma automática"
  210.             " a su idioma preferido si está seleccionado en sus Preferencias de Locale.\n"
  211.             @askoptions-help
  212.         ))
  213.         (set #copying_sources "Copiando el código fuente de SCDPlayer...")
  214.         
  215.         (set #docselect "Seleccione qué documentos AmigaGuide® instalar:")
  216.         (set #docdeutsch "Deutsch (no totalmente actualizado)")
  217.         (set #docenglish "English")
  218.         (set #dochelp (cat
  219.             "Seleccione qué ficheros de documentación desea instalar. Elija su(s) idioma(s) preferido(s).\n"
  220.             @askoptions-help
  221.         ))
  222.         (set #supporthelp (cat
  223.             "El ejecutable Delay hace falta para los programas ARexx y SCDPLyrics. Debería instalarse en alguna parte de su ruta por defecto.\n"
  224.             @copyfiles-help
  225.         ))
  226.         (set #askautolyrics "¿Quiere arrancar SCDPLyrics cada vez que se cargue SCDPlayer?")
  227.         (set #helpautolyrics "Seleccione 'sí' si desea que la ventana de SCDPLyrics se abra automáticamente al arrancar SCDPlayer. Seleccione 'no' en otro caso.")
  228.     
  229.         (set #askres "¿Quiere que Delay sea hecho residente?")
  230.         (set #promptres "Añadiendo una línea a su User-Startup...")
  231.         (set #helpres "Esto añadirá una línea a su User-Startup para hacer Delay residente, lo que tomará 2kB de memoria al arrancar, pero las funciones ARexx functions y SCDPLyrics no accederán a disco para esperar.")
  232.  
  233.         (set #docbits 2)
  234.  
  235.     )
  236. )
  237.  
  238. (welcome)
  239.  
  240. (if (<= @user-level 1)
  241.     (
  242.         (complete 0)
  243.         (set #pre-default-dest (askdir (prompt #ask_dir) (default @default-dest) (help #dir_help)))
  244.         (set @default-dest #pre-default-dest)
  245.  
  246.         (set #total_dir (tackon @default-dest "SCDPlayer"))
  247.         
  248.         (set #icon (tackon #total_dir "SCDP"))
  249.         
  250.         (set #dev '')
  251.         (set #unit '')
  252.         (set #def_dev "scsi.device")
  253.         (set #def_unit "4")
  254.         (set #flag 0)
  255.  
  256.         (if (exists (tackon #total_dir "SCDP.info"))
  257.             (
  258.                 (iconinfo (dest #icon) (gettooltype "DEVICE" "#dev") (gettooltype "UNIT" "#unit"))
  259.                 (set #def_dev #dev)
  260.                 (set #def_unit #unit)
  261.                 (set #flag (not (askbool (prompt (cat #ok_vals "DEVICE=" #dev "\nUNIT=" #unit "\n" #ok_vals2)) (help "adiós") (default 1))))
  262.             )
  263.         )       
  264.         
  265.         (if (OR (= #dev '') (= #unit '') #flag)
  266.             (
  267.                 (set #dev (askstring (prompt #enter_device) (help #dev_help) (default #def_dev)))
  268.                 (set #unit (cat (asknumber (prompt #enter_unit) (help #unit_help) (default (+ #def_unit)) (range 0 1023))))
  269.             )
  270.         )
  271.  
  272.         (makedir #total_dir (prompt #making_drawer))
  273.         (if (not (exists (tackon @default-dest "SCDPlayer.info")))
  274.             (
  275.                 (copyfiles (source "/SCDPlayer.info") (dest @default-dest) (prompt #copying_icons))
  276.                 (tooltype (dest (tackon @default-dest "SCDPlayer")) (noposition))
  277.             )
  278.         )
  279.         
  280.         (complete 10)
  281.                 
  282.         (copyfiles (source "SCDP") (dest #total_dir) (infos) (prompt #copying_program))
  283.         (tooltype (dest #icon) (settooltype "DEVICE" #dev) (settooltype "UNIT" #unit))
  284.         (copyfiles (source "SCDPLyrics.rexx") (dest #toal_dir) (prompt #copying_lyrics))
  285.         (copyfiles (source "c/Delay") (dest "C:") (prompt #copying_support))
  286.         
  287.         (complete 20)
  288.         
  289.         (copyfiles (source "SCDP_English.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  290.         (copyfiles (source "SCDP_Deutsch.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  291.         
  292.         (complete 30)
  293.         
  294.         (makedir (tackon #total_dir "Disks") (prompt #making_disks))
  295.         
  296.         (complete 40)
  297.         
  298.         (makedir (tackon #total_dir "Images") (prompt #making_images))
  299.         (if (not (exists (tackon #total_dir "Images.info")))
  300.             (copyfiles (source "Images.info") (dest #total_dir) (prompt #copying_icons))
  301.         )
  302.         
  303.         (set #images_dir (tackon #total_dir "Images"))
  304.         
  305.         (complete 50)
  306.         
  307.         (foreach "Images" "#?"
  308.             (if (not (exists (tackon #images_dir @each-name)))
  309.                 (copyfiles (source (tackon "Images" @each-name)) (dest #images_dir))
  310.             )
  311.         )
  312.         
  313.         (complete 60)
  314.         
  315.         (set #arexx_dir (tackon #total_dir "Rexx"))
  316.         (makedir #arexx_dir (prompt #making_arexx))
  317.         (copyfiles (source "Rexx.info") (dest #total_dir) (prompt #copying_icons))
  318.         
  319.         (complete 70)
  320.         
  321.         (copyfiles (source "Rexx/") (pattern "#?.scdp") (dest #arexx_dir) (infos) (prompt #copying_arexx))
  322.  
  323.         (complete 80)
  324.  
  325.         (makedir (tackon #total_dir "Catalogs") (prompt #catalogs))
  326.         (if (not (exists (tackon #total_dir "Catalogs.info")))
  327.             (copyfiles (source "Catalogs.info") (dest #total_dir) (prompt #copying_icons))
  328.         )
  329.         
  330.         (complete 90)
  331.         
  332.         (copyfiles (source "Catalogs") (dest (tackon #total_dir "Catalogs")) (all) (infos) (prompt #catalogs))
  333.         
  334.         (complete 100)
  335.     )
  336. )
  337.  
  338. (if (= @user-level 2)
  339.     (
  340.         (set #pre-default-dest (askdir (prompt #ask_dir) (default @default-dest) (help #dir_help)))
  341.         (set @default-dest #pre-default-dest)
  342.  
  343.         (set #total_dir (tackon @default-dest "SCDPlayer"))
  344.         (set #icon (tackon #total_dir "SCDP"))
  345.         
  346.         (set #parts (askoptions (choices #choice1 #choice2 #choice3 #choice4 #choice5 #choice6 #choice7 #choice8) (default 239) (prompt #ask_choices) (help #parts_help)))
  347.         
  348.         (if (BITAND #parts 32)
  349.             (
  350.                 (set #imagetype (askchoice (choices #imagesnormal #images3d) (prompt #selectimages) (help #imageshelp)))
  351.         
  352.                 (if (= #imagetype 0)
  353.                     (set #imagessrc "Images")
  354.                     (set #imagessrc "Alternative/Images")
  355.                 )
  356.             )
  357.         )
  358.         
  359.         (set #icontype (askchoice (choices #newicons #magicwb1 #magicwb2) (prompt #selecticons) (help #iconshelp)))
  360.  
  361.         (if (BITAND #parts 4)
  362.             (
  363.                 (set #catbits (askoptions (choices #catdeutsch #catespañol #catnorsk #catsvenska #catfrançais #catsuomi #catdansk #catpolski) (default #catbits) (prompt #catselect) (help #cathelp)))
  364.             )
  365.         )
  366.  
  367.         (if (BITAND #parts 2)
  368.             (
  369.                 (set #docbits (askoptions (choices #docdeutsch #docenglish) (default #docbits) (prompt #docselect) (help #dochelp)))
  370.             )
  371.         )
  372.         
  373.         (if (BITAND #parts 64)
  374.             (set #autolyrics (askbool (prompt #askautolyrics) (help #helpautolyrics) (default 0)))
  375.         )
  376.  
  377.         (if (BITAND #parts 128)
  378.             (set #res (askbool (prompt #askres) (help #helpres) (default 1)))
  379.         )
  380.  
  381.         (set #dev '')
  382.         (set #unit '')
  383.         (set #def_dev "scsi.device")
  384.         (set #def_unit "4")
  385.         (set #flag 0)
  386.  
  387.         (if (BITAND #parts 1)
  388.             (
  389.                 (if (exists (tackon #total_dir "SCDP.info"))
  390.                     (
  391.                         (iconinfo (dest #icon) (gettooltype "DEVICE" "#dev") (gettooltype "UNIT" "#unit"))
  392.                         (set #def_dev #dev)
  393.                         (set #def_unit #unit)
  394.                         (set #flag (not (askbool (prompt (cat #ok_vals "DEVICE=" #dev "\nUNIT=" #unit "\n" #ok_vals2)) (help "adiós") (default 1))))
  395.                     )
  396.                 )       
  397.             
  398.                 (if (OR (= #dev '') (= #unit '') #flag)
  399.                     (
  400.                         (set #dev (askstring (prompt #enter_device) (help #dev_help) (default #def_dev)))
  401.                         (set #unit (cat (asknumber (prompt #enter_unit) (help #unit_help) (default (+ #def_unit)) (range 0 1023))))
  402.                     )
  403.                 )
  404.             )
  405.         )
  406.         
  407.         (message #msg_scdpdir)
  408.         
  409.         (makedir #total_dir (prompt #making_drawer))
  410.         (if (not (exists (tackon @default-dest "SCDPlayer.info")))
  411.             (
  412.                 (copyfiles (newname "SCDPlayer.info") (source (select #icontype "/SCDPlayer.info" "alternative/mwb_icons/SCDPlayer_drawer.info" "alternative/mwb_icons/SCDPlayer_drawer.info")) (dest @default-dest) (prompt #copying_icons))
  413.                 (tooltype (dest (tackon @default-dest "SCDPlayer")) (noposition))
  414.             )
  415.         )
  416.         
  417.         (if (BITAND #parts 1)
  418.             (       
  419.                 (message #msg_scdpprogram)
  420.                 (copyfiles (source "SCDP") (dest #total_dir) (infos) (prompt #copying_program))
  421.                 (if (> #icontype 0)
  422.                     (copyfiles (dest #total_dir) (newname "SCDP.info") (source (select (- #icontype 1) "alternative/mwb_icons/SCDP.info" "alternative/mwb_icons/SCDPnew.info")) (prompt #copying_icons))
  423.                 )
  424.                 (tooltype (dest #icon) (settooltype "DEVICE" #dev) (settooltype "UNIT" #unit))
  425.                 
  426.                 (if (not (BITAND #parts 8))
  427.                     (
  428.                         (tooltype (dest #icon) (settooltype "SCRIPTONINSERT") (settooltype "SCRIPTONSTART") (settooltype "SCRIPTONINSERT") (settooltype "SCRIPTONQUIT") (settooltype "MENUSCRIPT") (settooltype "MENUSCRIPT") (settooltype "BUTTONSCRIPT") (settooltype "BUTTONSCRIPT"))
  429.                     )
  430.                 )
  431.                 
  432.                 (makedir (tackon #total_dir "Disks") (prompt #making_disks) (confirm) (help #diskdrwhelp))
  433.             )
  434.         )
  435.  
  436.         (if (BITAND #parts 64)
  437.             (       
  438.                 (message #copying_lyrics)
  439.                 (copyfiles (source "SCDPLyrics.rexx") (dest #total_dir) (prompt #copying_lyrics))
  440.                 
  441.                 (if (BITAND #parts 1)
  442.                     (
  443.                         (tooltype (dest #icon) (settooltype "SCRIPTONQUIT" "Rexx/QuitLyrics.scdp"))
  444.                         (if #autolyrics
  445.                             (tooltype (dest #icon) (settooltype "SCRIPTONSTART" "Rexx/StartLyrics.scdp"))
  446.                         )
  447.                     )
  448.                 )
  449.             )
  450.         )
  451.  
  452.         (if (BITAND #parts 128)
  453.             (       
  454.                 (message #copying_support)
  455.                 (copyfiles (source "c/Delay") (dest "C:") (prompt #copying_support) (confirm) (help #supporthelp))
  456.                 
  457.                 (if #res
  458.                     (startup "SCDPlayer" (command "resident C:Delay pure") (prompt #promptres) (help #helpres))
  459.                 )
  460.             )
  461.         )
  462.  
  463.         (if (BITAND #parts 2)
  464.             (
  465.                 (if (BITAND #docbits 2)
  466.                     (
  467.                         (message #msg_scdpdocs)
  468.                         (copyfiles (source "SCDP_English.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  469.                         (if (> #icontype 0)
  470.                             (copyfiles (dest #total_dir) (newname "SCDP_English.guide.info") (source "alternative/mwb_icons/SCDP_English.guide.info") (prompt #copying_icons))
  471.                         )
  472.                     )
  473.                 )
  474.                 (if (BITAND #docbits 1)
  475.                     (
  476.                         (message #msg_scdpdocs)
  477.                         (copyfiles (source "SCDP_Deutsch.guide") (dest #total_dir) (infos) (prompt #copying_docs))
  478.                         (if (> #icontype 0)
  479.                             (copyfiles (dest #total_dir) (newname "SCDP_Deutsch.guide.info") (source "alternative/mwb_icons/SCDP_English.guide.info") (prompt #copying_icons))
  480.                         )
  481.                     )
  482.                 )
  483.             )
  484.         )
  485.         
  486.         (if (BITAND #parts 32)
  487.             (
  488.         
  489.                 (message #copying_images)
  490.         
  491.                 (makedir (tackon #total_dir "Images") (prompt #making_images))
  492.                 (if (not (exists (tackon #total_dir "Images.info")))
  493.                     (copyfiles (newname "Images.info") (source (select #icontype "Images.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  494.                 )
  495.         
  496.                 (set #images_dir (tackon #total_dir "Images"))
  497.         
  498.                 (foreach #imagessrc "#?"
  499.                     (if (not (exists (tackon #images_dir @each-name)))
  500.                         (copyfiles (source (tackon #imagessrc @each-name)) (dest #images_dir))
  501.                     )
  502.                 )
  503.             )
  504.         )
  505.         
  506.         (if (BITAND #parts 8)
  507.             (
  508.                 (message #copying_arexx)
  509.                 (set #arexx_dir (tackon #total_dir "Rexx"))
  510.                 (makedir #arexx_dir (prompt #making_arexx))
  511.                 (copyfiles (newname "Rexx.info") (source (select #icontype "Rexx.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  512.                 (copyfiles (source "Rexx/") (pattern "#?.scdp") (dest #arexx_dir) (infos) (prompt #copying_arexx))
  513.                 (if #icontype
  514.                     (delete (tackon #arexx_dir "#?.info"))
  515.                 )
  516.             )
  517.         )
  518.         (if (BITAND #parts 4)
  519.             (
  520.                 (message #catalogs)
  521.                 (makedir (tackon #total_dir "Catalogs") (prompt #catalogs))
  522.                 (if (not (exists (tackon #total_dir "Catalogs.info")))
  523.                     (copyfiles (newname "Catalogs.info") (source (select #icontype "Catalogs.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  524.                 )
  525.                 (copyfiles (source "Catalogs") (dest (tackon #total_dir "Catalogs")) (all) (infos) (prompt #catalogs))
  526.                 (set #catdir (tackon #total_dir "Catalogs"))
  527.                 (if (BITAND 1 #catbits)
  528.                     (
  529.                         (if #icontype
  530.                             (
  531.                                 (delete (tackon #catdir "deutsch.info"))
  532.                                 (delete (tackon #catdir "deutsch/scdp.catalog.info"))
  533.                             )
  534.                         )
  535.                     )
  536.                     (
  537.                         (delete (tackon #catdir "deutsch.info"))
  538.                         (delete (tackon #catdir "deutsch") (all))
  539.                     )
  540.                 )
  541.                 (if (BITAND 2 #catbits)
  542.                     (
  543.                         (if #icontype
  544.                             (
  545.                                 (delete (tackon #catdir "español.info"))
  546.                                 (delete (tackon #catdir "español/scdp.catalog.info"))
  547.                             )
  548.                         )
  549.                     )
  550.                     (
  551.                         (delete (tackon #catdir "español.info"))
  552.                         (delete (tackon #catdir "español") (all))
  553.                     )
  554.                 )
  555.                 (if (BITAND 4 #catbits)
  556.                     (
  557.                         (if #icontype
  558.                             (
  559.                                 (delete (tackon #catdir "norsk.info"))
  560.                                 (delete (tackon #catdir "norsk/scdp.catalog.info"))
  561.                             )
  562.                         )
  563.                     )
  564.                     (
  565.                         (delete (tackon #catdir "norsk.info"))
  566.                         (delete (tackon #catdir "norsk") (all))
  567.                     )
  568.                 )
  569.                 (if (BITAND 8 #catbits)
  570.                     (
  571.                         (if #icontype
  572.                             (
  573.                                 (delete (tackon #catdir "svenska.info"))
  574.                                 (delete (tackon #catdir "svenska/scdp.catalog.info"))
  575.                             )
  576.                         )
  577.                     )
  578.                     (
  579.                         (delete (tackon #catdir "svenska.info"))
  580.                         (delete (tackon #catdir "svenska") (all))
  581.                     )
  582.                 )
  583.                 (if (BITAND 16 #catbits)
  584.                     (
  585.                         (if #icontype
  586.                             (
  587.                                 (delete (tackon #catdir "français.info"))
  588.                                 (delete (tackon #catdir "français/scdp.catalog.info"))
  589.                             )
  590.                         )
  591.                     )
  592.                     (
  593.                         (delete (tackon #catdir "français.info"))
  594.                         (delete (tackon #catdir "français") (all))
  595.                     )
  596.                 )
  597.                 (if (BITAND 32 #catbits)
  598.                     (
  599.                         (if #icontype
  600.                             (
  601.                                 (delete (tackon #catdir "suomi.info"))
  602.                                 (delete (tackon #catdir "suomi/scdp.catalog.info"))
  603.                             )
  604.                         )
  605.                     )
  606.                     (
  607.                         (delete (tackon #catdir "suomi.info"))
  608.                         (delete (tackon #catdir "suomi") (all))
  609.                     )
  610.                 )
  611.                 (if (BITAND 64 #catbits)
  612.                     (
  613.                         (if #icontype
  614.                             (
  615.                                 (delete (tackon #catdir "dansk.info"))
  616.                                 (delete (tackon #catdir "dansk/scdp.catalog.info"))
  617.                             )
  618.                         )
  619.                     )
  620.                     (
  621.                         (delete (tackon #catdir "dansk.info"))
  622.                         (delete (tackon #catdir "dansk") (all))
  623.                     )
  624.                 )
  625.                 (if (BITAND 128 #catbits)
  626.                     (
  627.                         (if #icontype
  628.                             (
  629.                                 (delete (tackon #catdir "polski.info"))
  630.                                 (delete (tackon #catdir "polski/scdp.catalog.info"))
  631.                             )
  632.                         )
  633.                     )
  634.                     (
  635.                         (delete (tackon #catdir "polski.info"))
  636.                         (delete (tackon #catdir "polski") (all))
  637.                     )
  638.                 )
  639.             )
  640.         )
  641.         
  642.         (if (BITAND #parts 16)
  643.             (
  644.         
  645.                 (message #copying_sources)
  646.         
  647.                 (makedir (tackon #total_dir "Sources") (prompt #copying_sources))
  648.                 (if (not (exists (tackon #total_dir "Sources.info")))
  649.                     (copyfiles (newname "Sources.info") (source (select #icontype "Sources.info" "alternative/mwb_icons/drawer.info" "alternative/mwb_icons/drawer.info")) (dest #total_dir) (prompt #copying_icons))
  650.                 )
  651.         
  652.                 (set #sources_dir (tackon #total_dir "Sources"))
  653.         
  654.                 (copyfiles (dest #sources_dir) (source "Sources") (all))
  655.                 
  656.                 (if #icontype
  657.                     (delete (tackon #sources_dir "#?.info"))
  658.                 )
  659.             )
  660.         )
  661.         
  662.     )
  663. )
  664.